darCambio :: [(Int,Int)] -> Int -> [Int]	
darCambio [] m = []
darCambio ((d,n):xs) m | (m >= d) && (n>0) = [d] ++ darCambio ((d,n-1):xs) (m-d)
		       | otherwise = darCambio xs m

